home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / snip1292.zip / PCNVRT.C < prev    next >
C/C++ Source or Header  |  1992-12-26  |  524b  |  17 lines

  1. /*
  2. **  demo code for converting Pascal string to C strings
  3. **
  4. **  public domain by Bob Stout
  5. */
  6.  
  7. #include <string.h>
  8.  
  9. #define P2Cconvert(s) {int n = *(s); memmove((s), &(s)[1], n); s[n] = '\0';}
  10. #define C2Pconvert(s) {int n = strlen(s); memmove(&(s)[1], (s), n); *(s) = n;}
  11.  
  12.         char string[81];
  13.  
  14.         fgets(string, 81, inFile);   /* get 80-char pascal string */
  15.         P2Cconvert(string);          /* convert it in place       */
  16.         C2Pconvert(string);          /* convert back              */
  17.